! Courier NewE*winspool\\prn-priv1\b41-3624-anpic77f1c0\\prn-priv1\b41-3624-aœ”Cÿ€ê od XXLetter ÿÿÿÿDINU"4` AƒqTRJPHAA‚‚V-NTXPO BAPHAA‚‚ÑDRIVER=winspool DEVICE=\\prn-priv1\b41-3624-a OUTPUT=npic77f1c ORIENTATION=0 PAPERSIZE=1 ASCII=1 COPIES=1 DEFAULTSOURCE=265 PRINTQUALITY=600 COLOR=1 DUPLEX=1 YRESOLUTION=600 TTOPTION=2 COLLATE=1 employee.emp_idAALLTRIM(employee.first_name) + " " + ALLTRIM(employee.last_name) Arialorders.order_amt  Courier New "$$99999.99"orders.order_amt  Courier New"$$9999999.99"Arial"Overall Sales Total"3STR(INT((emp_total / nTotalSales)*100)) + " " + "%"  Courier New"@I"Arial"Total Sales by Employees"Arial "Employee"Arial "Total Sales"Arial"% of Overall Sales"5STR(INT((nTotalSales / nTotalSales)*100)) + " " + "%"  Courier Newemployee.emp_id ArialTimes New Roman+"Visual FoxPro Report Sample - Percent.frx""Page " + ALLTRIM(STR(_pageno)) Times New RomanTimes New Roman "Description"Times New Romanz"You can attatch code to the data environment to calculate a value to be used within the report. In this case, the total"Times New Roman}"sales of all employees is calculated before the report is run. Then this value is used to print out the percent of overall"Times New RomanS"sales per employee (which is based on the employee sales divided by total sales)." emp_totalorders.order_amt0 Courier NewArialArialTimes New RomanTimes New RomanTimes New Romandataenvironment`Top = 359 Left = 83 Width = 512 Height = 159 DataSource = .NULL. Name = "Dataenvironment" cursor¦Top = 10 Left = 20 Height = 90 Width = 118 Alias = "employee" Order = "emp_id" Database = ..\..\data\testdata.dbc CursorSource = "employee" Name = "Cursor1" cursor‘Top = 10 Left = 160 Height = 90 Width = 118 Alias = "orders" Database = ..\..\data\testdata.dbc CursorSource = "orders" Name = "Cursor2" ’PROCEDURE Destroy * Remove the PUBLIC variable from memory RELEASE nTotalSales ENDPROC PROCEDURE Init PUBLIC nTotalSales * Make sure TALK is off, so CALC results to not * display on screen cOldTalk = SYS(103) SET TALK OFF * CALC sales total for all employees CALCULATE SUM(orders.order_amt) TO nTotalSales * Return TALK setting to previous setting SET TALK &cOldTalk ENDPROC `þòÿ GGÒ‘%½î ÜüU <÷þU NTOTALSALESH7÷þT÷üCøg]ýþG2þ}(÷Âüô÷ýþSET TALK &cOldTalk U NTOTALSALESCOLDTALKORDERS ORDER_AMTDestroy,ÿÿInitGÿÿ1s2qôb3c2Rm‡)Grelation ParentAlias = "employee" RelationalExpr = "emp_id" ChildAlias = "orders" ChildOrder = "emp_id" Name = "Relation1"